11556 IF HID$(Y¢.Y.1)¤","THEN1155B 11557 NEXTIRETURN 11558 Y$=RIGHT$(Y$.LEN(Y$>-Y):Y9#Y9+1 11559 X(28+Y9}=UAL<Y$>IGUTD11555 11688 Y1$=“TUNH SEG.GEN."IRHH*#I*****33 11681 IFLENtYw)>8TMEN14958 11682 Y2$¤Y$ 11683 IFYE=1THEN11628 11684 Y5$=“BU7":G05UH16818 11685 Y5$="AU"+Y2$:GDBUB16818 11686 Y5$="BD18":BDSUE16818 11688 Y5$="HU6“:GUSUB16818 11618 RETURN 11628 YE¤8:GDBUE11958 11622 Y=8:GUSUB18758 11626 Y=Xl6):GU$UH18358 1162B Y5$="B8.ZZ8":GUSU816818 11638 YmX(1):GUSUH18358 11632 Y5$="3G185":GD5UB16818 11634 Y$=Y2$1GH5UH11684 11636 GGSUB12888:IFY>.1THEN11636 11633 GUSUB11658IY2%=Y$ 11648 Y5$¤·e·!$U1B6*‘: |3USL1B16B18 11641 GU5UB13858 11642 Y¤1;GU5UBL8758IY¤8IGUSUB1865B 11643 Y¤1rGD5UB18658:GU5UE18458:GU5UB1135B ‘11644 Y$=Y2$:RETUHN 11658 Y1$="TDNE-SEH.DEC.“:REHl*#*****34 11651 Y5$="HD11":GUSUH16818 ‘ 11652 GDSUE168E8 11654 IFLEFT5(Y5$.2)<>"TD"THEN14958 11656 Y$(5)=““ 11658 FDR Y1=3TD18 11668 Y$(4)¤HID$(Y5$.Y1.1) 11662 IFH5C{Y$(4))}57THENY$<4J=EHR$<ASC(Y$(4l)+?) 11663 IFY$(4)="F“THENY$t4)=" “ 11664 Y$(5)=Y$f5)+Y$(4) 11666 NEXTYI 11668 Y$=Y$(5) 11698 RETURN 11788 Y1$="DE~UULT.MEA§.":REH*X$l¥¥KX35 11781 T3$=“EY"iGUTD11312 11758 Y1$="DE~CURRENT—HEAS."ZREHIXSKXB6 11751 Y3$¤"DYYY"ZGDT811312 11888 Y1$=“NGPU CURRENT-H£AS."IREH*#*37 11881 GUSUH1178B 11882 Y¤X(11)IYX18IRETURN 11858 Y1$¢"AF-LEVEL MEAN-UAL."IREH***38 1.1H51 Y1==B 211852 FDRYZMITUYZY5$¤"RX.“:GDSUB16818:GUSUB16888:Y1=Y1+VAL{HID$(Y5$.3.9} 11853 Ym(INT(188888*T1/Y)P/188:RETURN 11988 Y1$="UNIU. ADdU5THENT“IREM*****39 11983 YF¤8:Y1¤Y1/188:Y9=8IY8=Y6/Z 1.1986 Y=‘¤'6:R·=Y4: I1§ElSL!B9BBB:+'<=Y2:GDSUE¤98B8:Y7=Y 11987 IFRB5(Y/Y8~1)<Y1THENY1=Y6:RETURN 11983 IFY7=Y9DRY6¤YBTHENYF=YF+1:GDTD11911 11989 Y5¤(mB8tY5))KSGN((Y7—Y9)/(Y6-Y8>> 11911 IFYF=5THENY1=Y6:RETURN 11912 IFY7>Y8ANDY9>Y8THEN11921 11915 IFY?<Y8AHDY9<Y8THEN11921 11918 Y5¤Y5/2 11921 YB¤Y6:Y9¤T7:Y6=INT(1E4$(Y8+Y5*SGN(Y8-Y9)>+.5}/1E4:GDTU11986 11958 Y1$="TRANSHITTHR-TEST"!RHH*$#**48 11951 Y5$=“AT."iGDSUB16818!RETURN 12888 Y1$¤"RF FUNER":REH**¥$********#41 12881 Y3$=“AH“:GUTU11312 12858 Y1¤¤"RF FREGU.ERRDR"!REH**I¥KI#42 12851 Y5w¤"mT.":GU5UB16818:GUSU816888 N12B5Z IFLEFT$(Y5$.2J="RF"THENY¤INT(.1X(1E7¥(UAL(MIDt(Y5$.3.15}}-X(6>)+5l